home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {A5C83C43-2632-421E-AB78-ACBF948BC571}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  3KB  |  67 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Sub Object_OnScriptEnter
  5.     Object.State="disabled"
  6.     Object.LocalStorage("state") = "disabled"        
  7. End Sub
  8.  
  9. Sub Object_OnMouseEnter
  10.     If Object.LocalStorage("state") <> "disabled" Then
  11.         Object.State = "hover"
  12.         Object.LocalStorage("state") = "hover"
  13.     End If
  14. End Sub
  15. Sub Object_OnMouseLeave
  16.     If Object.LocalStorage("state") <> "disabled" Then
  17.         Object.State = "normal"
  18.         Object.LocalStorage("state") = "normal"
  19.     End If
  20. End Sub
  21. Function Object_OnLButtonDown(x, y)
  22.     If Object.LocalStorage("state") <> "disabled" Then
  23.         Object.State = "pressed"
  24.         Object.LocalStorage("state") = "pressed"
  25.     End If
  26. End Function
  27. Function Object_OnLButtonUp(x, y, Dragged)
  28.     If Object.LocalStorage("state") <> "disabled" Then
  29.         Object.State = "hover"
  30.         Object.LocalStorage("state") = "hover"
  31.     End If
  32. End Function
  33.  
  34. Sub Object_OnStateChange(state)
  35.     Select Case state
  36.         Case "disabled","normal","hover","pressed"
  37.             Object.LocalStorage("state") = state
  38.     End Select
  39.     If state = "Command executed" And Object.LocalStorage("state") <> "disabled" Then
  40.         currentPos = DesktopX.ScriptObject("lst_tracks").Control.ListIndex
  41.         lstTrack = DesktopX.ScriptObject("lst_tracks").Control.Item(currentPos)
  42.         PrevlstTrack = DesktopX.ScriptObject("lst_tracks").Control.Item(currentPos - 1)
  43.         DesktopX.ScriptObject("wmp").Control.currentPlaylist.moveItem currentPos, currentPos - 1
  44.         DesktopX.ScriptObject("lst_tracks").Control.Item(currentPos) = PrevlstTrack
  45.         DesktopX.ScriptObject("lst_tracks").Control.Item(currentPos - 1) = lstTrack
  46.         DesktopX.ScriptObject("lst_tracks").Control.ListIndex = currentPos - 1
  47.         
  48.         
  49.         DesktopX.ScriptObject("wmp_playlist_down").Object.state = "normal"
  50.         DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "normal"
  51.         
  52.         If DesktopX.ScriptObject("lst_tracks").Control.ListIndex = 0 Then
  53.             Object.State = "disabled"
  54.             Object.LocalStorage("state") = "disabled"
  55.         Else
  56.             Object.State = "normal"
  57.             Object.LocalStorage("state") = "normal"
  58.         End If
  59.  
  60.         DesktopX.Object("wmp_txt_track").Text = (DesktopX.ScriptObject("lst_tracks").Control.ListIndex + 1) & "  of  " & DesktopX.ScriptObject("lst_tracks").Control.ItemCount
  61.         
  62.         Set currentPos = Nothing
  63.         Set lstTrack = Nothing
  64.         Set PrevlstTrack = Nothing
  65.     End If
  66. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>335</EditorLeft><EditorTop>100</EditorTop><EditorRight>1084</EditorRight><EditorBottom>820</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  67.